home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs04.d81 / disklist.sda / PRINT DOCS (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  181b  |  4 lines
  1. 1 CLOSE8:CLOSE4:OPEN8,8,8,"0:DISK LIST 2 DOCS,S,R":OPEN4,4,7:A$="":L=0:PRINT#4
  2. 2 GET#8,B$:A$=A$+B$:ON-(B$<>CHR$(13))GOTO2:IFSTTHENCLOSE8:PRINT#4:CLOSE4:END
  3. 3 PRINT#4,"      ";A$;:L=L+1:A$="":ON-(L<56)GOTO2:FORL=1TO10:PRINT#4:NEXTL:L=0:GOTO2
  4.